home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / MISC / READNEWS.ARC / !ReadNews_Library_InjectNews < prev    next >
Encoding:
Text File  |  1994-05-14  |  1004 b   |  39 lines
  1. | > InjectNews
  2. |
  3. | Syntax: InjectNews <NewsServerAddress> <Filename>
  4. |
  5. | InjectNews will queue the specified file for posting to News via the
  6. | specified NewsServer. It performs no error checking on the file, and
  7. | assumes that the file contains a valid header.
  8. |
  9. | This version of InjectNews produces single, uncompressed news articles
  10. | for sending straight to the other end. It needs little memory and is
  11. | the best version for people with minimal RAM available.
  12.  
  13. | Ensure enough memory for uux to run
  14. Wimpslot -min 160k
  15.  
  16. | Save old debug level, set current debug level to -1
  17. Set OldDebug <Rucp$Debuglevel>
  18. Set Rucp$Debuglevel -1
  19.  
  20. | Generate news batch
  21. | Set Inject$File %1
  22. | Run <ReadNews$Dir>.Library.SetupPost
  23. | Unset Inject$File
  24. | Remove %1B
  25. | Print %1 { >> %1A }
  26. | Remove %1
  27.  
  28. | Execute 'rnews' on this file at remote end.
  29. | Uux - %0!rnews <%1A
  30. | | and tidy up.
  31. | Remove %1A
  32. Uux - %0!rnews <%1
  33. | and tidy up.
  34. Remove %1
  35.  
  36. | Restore previous debug level
  37. Set Rucp$Debuglevel <OldDebug>
  38. Unset OldDebug
  39.